function oAjax(){var j=false;try{j=new ActiveXObject("Msxml2.XMLHTTP");}catch(e){try{j=new ActiveXObject("Microsoft.XMLHTTP");}catch(E){if(!j && typeof XMLHttpRequest!='undefined') j=new XMLHttpRequest();}}return j;}
var peticion = oAjax();

function ChrCorreo(J){var v=J.indexOf('@'),e=J.indexOf('.'),r=J.lastIndexOf('@'),o=true;if((v<=0)||(e<v)||(r!=v))o=false;return o;} 
function ValCorreo(J,M){if(J.value.length>0){if(!ChrCorreo(J.value)){J.value="";alert(M);J.focus();}}}
function SoloNum(I){I.value=I.value.replace(/[^\/\d]/g,'');}